home *** CD-ROM | disk | FTP | other *** search
- 1 IFX>.THEN10
- 2 POKE53280,.:POKE53281,.
- 3 PRINT"[147]"
- 4 PRINT" [215]ELCOME TO [210]ED'S [193]RT [196]EPOT..."
- 5 :
- 10 IFX=0THENX=1:LOAD"UNPACKER",8,1
- 20 IFX=1THENX=2:LOAD"BLOAD.O",8,1
- 30 :
- 40 BL=828:UNPACK=51456:HGR=51459
- 50 :
- 55 NP=10:DIM T$(NP),A$(NP),R$(NP)
- 57 FORX=1TONP:READT$(X),A$(X),R$(X):NEXT
- 60 GOSUB 50060: REM TITLE SCREEN
- 70 FORX=1TONP:GOSUB60000
- 80 PRINT"[154]"
- 82 PRINTSPC(19-LEN(T$(X))/2)""T$(X)"[146]"
- 84 PRINT""SPC(19-LEN(A$(X))/2)""A$(X)"[146]"
- 90 SYSBL,16384,R$(X)
- 92 :
- 94 IFPEEK(198)<>0THENGETA$:POKE198,0:IFA$="Q"ORA$="[209]"THENGOSUB10000
- 96 POKE249,224:POKE250,204
- 98 POKE251,0:POKE252,64
- 99 POKE253,0:POKE254,0:PRINT"[147]";:SYSUNPACK:SYSHGR
- 100 AG=3.34
- 110 FORDL=1TO1500:IFPEEK(198)=0THENNEXTDL:GOTO120
- 112 GETA$:IFA$="Q"ORA$="[209]"THENSYSHGR:GOSUB10000:SYSHGR
- 120 SYSHGR:PRINT"[147]":POKE198,0:NEXT X
- 130 GOTO70
- 140 :
- 10000 REM A KEY WAS PRESSED
- 10005 POKE53281,1:POKE53280,5
- 10010 PRINT"[147][144] [193]RE YOU SURE YOU WANT TO QUIT [[217]/[206]]?"
- 10020 POKE198,0:WAIT198,1:GETAG$
- 10030 IFAG$="Y"ORAG$="[217]"THEN30000
- 10040 RETURN
- 30000 REM QUIT
- 30010 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
- 30020 IFER<>63THENPRINT"[147]":END
- 30030 LOAD"$",8
- 50000 REM DATA <TITLE>,<AUTHOR>,<REAL>
- 50010 DATA "[215]ATER","[208]ATRICK [196]UGAN",WATER.SHP
- 50012 DATA "[196]EJA [214]U","[208]ATRICK [196]UGAN",DEJA.VU.SHP
- 50014 DATA "[194]IRD","[208]ATRICK [196]UGAN",BIRD.SHP
- 50016 DATA "[196]ISK [196]RIVE","[208]ATRICK [196]UGAN",DISKDRIVE.SHP
- 50020 DATA "[200]ORSE","[208]ATRICK [196]UGAN",HORSE.SHP
- 50022 DATA "[211]PACE","[208]ATRICK [196]UGAN",SPACE.SHP
- 50026 DATA "[211]TREET","[208]ATRICK [196]UGAN",STREET.SHP
- 50030 DATA "[211]TATUE","[208]ATRICK [196]UGAN",STATUE.SHP
- 50034 DATA "[211]INK","[208]ATRICK [196]UGAN",SINK.SHP
- 50040 DATA "[208]ENTE'","[208]ATRICK [196]UGAN",PENTE.SHP
- 50060 REM TITLE SCREEN
- 50065 PRINT"[147]":POKE53281,1:POKE53280,1
- 50072 PRINT" [176]`````````````````[174]"
- 50082 PRINT" [221][195]LUBSTAR [208]RESENTS[221][152] "
- 50092 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
- 50102 PRINT" "
- 50112 PRINT
- 50122 PRINT" [159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
- 50132 PRINT" [221] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][159] [221][152] "
- 50142 PRINT" [159][221] [221][210]ED'S [193]RT [196]EPOT[221][154] [159] [221][152] "
- 50152 PRINT" [159][221] [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][154] [159] [221][152] "
- 50162 PRINT" [159][221] [154] [159] [221][152] "
- 50172 PRINT" [159][221] [221][152][160]"
- 50182 PRINT" [159][221] [211]LIDE [211]HOW [208]RESENTER WRITTEN [221][152][160]"
- 50192 PRINT" [159][221] BY [195]LUB [211]TAFF [221][152][160]"
- 50202 PRINT" [159][221] ([195]) 1992 [221][152][160]"
- 50204 PRINT" [159][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152][160]"
- 50212 PRINT" "
- 50222 PRINT
- 50232 PRINT" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
- 50242 PRINT" [221] [193]LL PICTURES CREATED BY [221][152] "
- 50252 PRINT" [221] [208]ATRICK [196]UGAN [221][152] "
- 50272 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
- 50282 PRINT" "
- 50292 :
- 50302 PRINT" [ pRESS ANY KEY TO START THE SHOW[160]]";
- 50312 PRINT"";
- 50314 POKE198,0:WAIT198,1:POKE198,0
- 50316 POKE53281,5:RETURN
- 59990 :
- 60000 :
- 60001 POKE53281,1:POKE53280,5
- 60005 PRINT"[147][146] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
- 60010 PRINT" [221][195]LUBSTAR IS PROUD TO PRESENT:[221][152] "
- 60020 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
- 60030 PRINT" "
- 60040 PRINT
- 60050 PRINT" [150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
- 60060 PRINT" [221] [221][152] "
- 60070 PRINT" [150][221] [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][150] [221][152] "
- 60080 PRINT" [150][221] [154][221] [221] [150] [221][152] "
- 60090 PRINT" [150][221] [154][221] CREATED BY [221] [150] [221][152] [146][160]"
- 60100 PRINT" [150][221] [154][221] [221] [150] [221][152] [146] [160]";
- 60110 PRINT" [150][221] [154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [150] [221][152] "
- 60120 PRINT" [150][221] [150] [221][152] "
- 60130 PRINT" [150][221] [221][152] "
- 60140 PRINT" [150][221] [221][152] "
- 60150 PRINT" [150][221] [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][150] [221][152] [146][160]"
- 60160 PRINT" [150][221] [154][221] [195]OMING SOON TO A COMPUTER[221] [150] [221][152] [146][160]"
- 60170 PRINT" [150][221] [154][221] NEAR YOU. [221] [150] [221][152] [146][160]"
- 60180 PRINT" [150][221] [154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [150] [221][152] [146][160]"
- 60190 PRINT" [150][221] [150] [221][152] [146][160]"
- 60200 PRINT" [150][221] [221][152] "
- 60210 PRINT" [150][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
- 60220 PRINT" "
- 60230 PRINT
- 60240 PRINT" [ pRESS 'q' TO EXIT ]";
- 60250 PRINT"";
- 60260 RETURN
-